﻿<!-- #include file="../ding.asp" -->
<!-- #include file="../mymin.asp" -->
<%
Response.Buffer = true
Response.Expires = -1

Call Head2()
%>
<title>主机测试</title></head><body><div class='main400'>
服务器性能测试<br/><br/>
<%
Response.Flush
Response.Write "整数运算测试，50万次加法运算"
dim t1,t2,lsabc,thetime,thetime2,fsosus,httpsus,adosus,jpegsus
t1=timer
for i=1 to 500000
	lsabc= 1 + 1
next
t2=timer
thetime=cstr(int(( (t2-t1)*10000 )+0.5)/10)
Response.Write "结果：<font color=""red"">" & thetime & "毫秒</font>(145以下正常)<br/>"


Response.Write "浮点运算测试，20万次开方运算"
t1=timer
for i=1 to 200000
	lsabc= 2^0.5
next
t2=timer
thetime2=cstr(int(( (t2-t1)*10000 )+0.5)/10)
Response.Write "结果：<font color=""red"">" & thetime2 & "毫秒</font>(130以下正常)<br/>"


If Not ifObjInstalled("Scripting.FileSystemObject") Then fsosus="不"
If Not ifObjInstalled("Microsoft.XMLHTTP") Then httpsus="不"
If Not ifObjInstalled("Adodb.Stream") Then adosus="不"
If Not ifObjInstalled("Persits.Jpeg") Then jpegsus="不"

Response.Write "<br/>服务器信息：<br/><table>"&_
	"<tr><td>主机IP：</td><td>"&Request.ServerVariables("LOCAL_ADDR")&"<td><tr>"&_
	"<tr><td>端口号：</td><td>"&Request.ServerVariables("SERVER_PORT")&"<td><tr>"&_
	"<tr><td>IIS版本：</td><td>"&Request.ServerVariables("SERVER_SOFTWARE")&"<td><tr>"&_
	"<tr><td>超时时间：</td><td>"&Server.ScriptTimeout&"秒<td><tr>"&_
	"<tr><td>Fso组件：</td><td>"&fsosus&"支持<td><tr>"&_
	"<tr><td>XmlHttp组件：</td><td>"&httpsus&"支持<td><tr>"&_
	"<tr><td>Stream组件：</td><td>"&adosus&"支持<td><tr>"&_
	"<tr><td>ASPJpeg组件：</td><td>"&jpegsus&"支持<td><tr>"&_
	"</table>"

%><br/>温馨提示：<br/>
Fso组件：文件系统管理中用到<br/>
XmlHttp组件：采集系统中用到<br/>
Stream组件：文件上传中用到<br/>
ASPJpeg组件：图像处理中用到<br/>
<br/>
<a href="index.asp?sid=<%=sid%>">[站长工具]</a><br/>
<a href="../index.asp?sid=<%=sid%>">[后台管理]</a>
</p></card></wml>
<%call CloseConn%>